object EnterKeyForm: TEnterKeyForm Left = 200 Top = 108 BorderIcons = [biSystemMenu] BorderStyle = bsToolWindow Caption = 'Enter KeyCode' ClientHeight = 157 ClientWidth = 104 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True OnKeyPress = FormKeyPress PixelsPerInch = 96 TextHeight = 13 object Button1: TButton Tag = 7 Left = 14 Top = 26 Width = 25 Height = 25 Caption = '7' TabOrder = 0 OnClick = Button10Click end object Button3: TButton Tag = 9 Left = 64 Top = 26 Width = 25 Height = 25 Caption = '9' TabOrder = 1 OnClick = Button10Click end object Button4: TButton Tag = 4 Left = 14 Top = 51 Width = 25 Height = 25 Caption = '4' TabOrder = 2 OnClick = Button10Click end object Button5: TButton Tag = 5 Left = 39 Top = 51 Width = 25 Height = 25 Caption = '5' TabOrder = 3 OnClick = Button10Click end object Button6: TButton Tag = 6 Left = 64 Top = 51 Width = 25 Height = 25 Caption = '6' TabOrder = 4 OnClick = Button10Click end object Button7: TButton Tag = 1 Left = 14 Top = 76 Width = 25 Height = 25 Caption = '1' TabOrder = 5 OnClick = Button10Click end object Button8: TButton Tag = 2 Left = 39 Top = 76 Width = 25 Height = 25 Caption = '2' TabOrder = 6 OnClick = Button10Click end object Button9: TButton Tag = 3 Left = 64 Top = 76 Width = 25 Height = 25 Caption = '3' TabOrder = 7 OnClick = Button10Click end object Button10: TButton Left = 14 Top = 101 Width = 50 Height = 25 Caption = '0' TabOrder = 8 OnClick = Button10Click end object Button2: TButton Tag = 8 Left = 39 Top = 26 Width = 25 Height = 25 Caption = '8' TabOrder = 9 OnClick = Button10Click end object BitBtn1: TBitBtn Tag = 10 Left = 64 Top = 101 Width = 25 Height = 25 Hint = 'Clear Entry' ParentShowHint = False ShowHint = True TabOrder = 10 OnClick = BitBtn1Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333999993333333333F77777FFF333333999999999 3333333777333777FF3333993333339993333377FF3333377FF3399993333339 993337777FF3333377F3393999333333993337F777FF333337FF993399933333 399377F3777FF333377F993339993333399377F33777FF33377F993333999333 399377F333777FF3377F993333399933399377F3333777FF377F993333339993 399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399 99333773FF3333777733339993333339933333773FFFFFF77333333999999999 3333333777333777333333333999993333333333377777333333} NumGlyphs = 2 end object BitBtn2: TBitBtn Left = 14 Top = 131 Width = 75 Height = 25 Caption = '&Accept' Default = True ModalResult = 1 TabOrder = 11 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 555555555555555555555555555555555555555555FF55555555555559055555 55555555577FF5555555555599905555555555557777F5555555555599905555 555555557777FF5555555559999905555555555777777F555555559999990555 5555557777777FF5555557990599905555555777757777F55555790555599055 55557775555777FF5555555555599905555555555557777F5555555555559905 555555555555777FF5555555555559905555555555555777FF55555555555579 05555555555555777FF5555555555557905555555555555777FF555555555555 5990555555555555577755555555555555555555555555555555} NumGlyphs = 2 end object Edit1: TEdit Left = 14 Top = 2 Width = 75 Height = 21 ReadOnly = True TabOrder = 12 end end